(read-quoted-char): Apply listify-key-sequence to vector

returned by this-single-command-raw-keys before appending it to
unread-command-event.

diff --git a/lisp/subr.el b/lisp/subr.el
index 7630435860100bd093afa939490d909677aba65d..4d1d1b350ec4254e4225bce6fac86ce1979c5f0a 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1092,7 +1092,7 @@ any other non-digit terminates the character code and is then used as input."))
        (if inhibit-quit (setq quit-flag nil)))
       (cond ((null char))
            ((not (integerp char))
-            (setq unread-command-events (this-single-command-raw-keys)
+            (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
                   done t))
            ((/= (logand char ?\M-\^@) 0)
             ;; Turn a meta-character into a character with the 0200 bit set.
@@ -1109,7 +1109,7 @@ any other non-digit terminates the character code and is then used as input."))
            ((and (not first) (eq char ?\C-m))
             (setq done t))
            ((not first)
-            (setq unread-command-events (this-single-command-raw-keys)
+            (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
                   done t))
            (t (setq code char
                     done t)))